﻿Imports QLBH.GlobalClass
Public Class frmKHThongTinKhachHang


    Private Sub btnKHLuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKHLuu.Click

        Dim tenF As String = Me.Name + ".xml"
        GlobalFunction.GhiTenControlToXML(Me, tenF)
        MessageBox.Show("Succsesfull", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub btnKHThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKHThoat.Click
        Me.Close()
    End Sub
End Class